--[[
    编码: WMS-32-11
    名称: 巷道-重置货位权重
    作者：HAN  
    日期：2025-1-29
    
    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： ResetLocWeight

    功能:
        -- 重新计算一下巷道内货位的 weight, weight2
--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

local function reset_lane_loc_weight( strLuaDEID, sql_condition )
    local nRet, strRetInfo

    -- 多页查询
    local strOrder = "N_COL desc"
    local max_col = 0

    nRet, strRetInfo = mobox.queryDataObjAttr2( strLuaDEID, "Location", sql_condition, strOrder, 100, "S_CODE","N_COL","N_LAYER" )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "queryDataObjAttr2: "..strRetInfo) end  
    if  ( strRetInfo == '' ) then return 0 end

    local success
    local queryInfo
    success, queryInfo = pcall( json.decode, strRetInfo )
    if ( success == false ) then lua.Error( strLuaDEID, debug.getinfo(1), "queryDataObjAttr2 返回结果啊非法的JSON格式!" ) end

    local queryID = queryInfo.queryID
    local nPageCount = queryInfo.pageCount
    local nPage = 1
    local dataSet = queryInfo.dataSet       -- 查询出来的数据集
    local loc_code, col, layer, weight, weight2
    local strCondition, strSetAttr

    while (nPage <= nPageCount) do

        for n = 1, #dataSet do
            loc_code = lua.Get_StrAttrValue( dataSet[n].attrs[1].value )
            col = lua.Get_NumAttrValue( dataSet[n].attrs[2].value )
            layer = lua.Get_NumAttrValue( dataSet[n].attrs[3].value )
            if ( max_col == 0 ) then max_col = col end
            weight = col+layer
            weight2 = (max_col-col+1)+layer
            -- 更新货位权重
            strCondition = "S_CODE = '"..loc_code.."'"
            strSetAttr = "N_POS_WEIGHT = "..weight..", N_POS_WEIGHT_2 = "..weight2
            nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Location", strCondition, strSetAttr )
            if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "updateDataAttrByCondition失败"..strRetInfo ) end   
        end        

        nPage = nPage + 1
        if ( nPage <= nPageCount ) then
            -- 取下一页
            nRet, strRetInfo = mobox.queryDataObjAttr2( queryID, nPage)
            if ( nRet ~= 0 ) then
                lua.Error( strLuaDEID, debug.getinfo(1), "queryDataObjAttr2失败! nPage="..nPage.."  "..strRetInfo )
            end 
            queryInfo = json.decode(strRetInfo) 
            dataSet = queryInfo.dataSet              
        end
    end 
    
    return 0
end

function ResetLocWeight ( strLuaDEID ) 
    local nRet, strRetInfo, n, m
    local objs

    -- step1  获取当前需要进行重置的数据对象
    nRet, objs = m3.GetSysDataJson( strLuaDEID )
    if ( nRet ~=0 ) then lua.Error( strLuaDEID, debug.getinfo(1), objs ) end  
    -- [{"id":"","attrs":[{"attr":"","value":""},..]},..]
    local nCount = #objs
    if (nCount == 0) then  return end

    local obj_attrs
    local wh_code, area_codel, lane_no
    local strCondition
    local loc_objs, col, layer, max_col, weight, weight2

    for n = 1, nCount do
        obj_attrs = m3.KeyValueAttrsToObjAttr( objs[n].attrs )
        wh_code = lua.Get_StrAttrValue( obj_attrs.S_WH_CODE )
        if ( wh_code == '' ) then
            mobox.setInfo( strLuaDEID, "Grid中必须有仓库编码列!")
            return
        end
        area_code = lua.Get_StrAttrValue( obj_attrs.S_AREA_CODE )
        if ( area_code == '' ) then
            mobox.setInfo( strLuaDEID, "Grid中必须有库区编码列!")
            return
        end        
        lane_no = lua.Get_NumAttrValue( obj_attrs.N_AISLE )
        if ( lane_no == 0 ) then
            mobox.setInfo( strLuaDEID, "Grid中必须有巷道列!")
            return
        end        

        -- 重置巷道内货位权重
        strCondition = "S_WH_CODE = '"..wh_code.."' AND S_AREA_CODE = '"..area_code.."' AND N_AISLE = "..lane_no
        nRet, strRetInfo = reset_lane_loc_weight( strLuaDEID, strCondition )
        if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "reset_lane_loc_weight失败! " .. strRetInfo) end
    end
end